﻿Imports HQDBF

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '创建对象，可通过重载配置DBF文件的路径
        Dim query As New PriceQuery

        '批量获取卖3价格
        Dim codes As String() = New String() {"000039", "000562", "002001", "600151", "600517"}
        MessageBox.Show(query.GetSellPricesX(codes, 3).Length.ToString)

        '获取买2价格
        MessageBox.Show(query.GetBuyPriceX("600021", 2).ToString)

    End Sub
End Class
